% Autor:
% Fecha: 08/06/2013

entrada([4,1]).
puerta([2,4]).
llave([3,3]).
cerrojo([3,4]).

% borde exterior
pared(_,[X2,_]) :- X2 =:= 0.
pared(_,[X2,_]) :- X2 =:= 5.
pared(_,[_,Y2]) :- Y2 =:= 0.
pared(_,[_,Y2]) :- Y2 =:= 5.

pared([1,1],[1,2]).
pared([1,2],[1,1]).
pared([1,3],[1,4]).
pared([1,4],[1,3]).
pared([2,1],[3,1]).
pared([2,2],[2,3]).
pared([2,3],[2,2]).
pared([2,3],[3,3]).
pared([2,4],[3,4]).
pared([3,1],[2,1]).
pared([3,2],[4,2]).
pared([3,3],[2,3]).
pared([3,3],[3,4]).
pared([3,3],[4,3]).
pared([3,4],[2,4]).
pared([3,4],[3,3]).
pared([4,2],[3,2]).
pared([4,3],[3,3]).